home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / POWER10.ZIP / EVENTS.INI < prev    next >
INI File  |  1997-03-16  |  26KB  |  411 lines

  1. [Events]
  2. n0=@+1:ON JOIN:%visit:/clonestopper | /offensivenick | /offensiveID
  3. n1=---------------------------------------------------------Channel Counter + Clone checker for level 1 users
  4. n2=#ChannelCounter disabled
  5. n3=1:ON JOIN:%visit:/inc %Visitor 1 | /notice $nick Welcome to 4[  $+ $chan $+ ] Todays date-4<  $+ $date $+  > 1-You are person Number -{ 12 %Visitor  1}- that joined since4 %count %zone $+ ! 1 %logo  | /clonestopper | /offensivenick | /offensiveID
  6. n4=7:ON JOIN:%visit:/inc %Visitor 1 | /notice $nick Welcome to 4[  $+ $chan $+ ] Todays date-4<  $+ $date $+  > 1-You are person Number -{ 12 %Visitor  1}- that joined since4 %count %zone $+ ! 1 %logo 
  7. n5=100:ON JOIN:%visit:/inc %Visitor 1 | /notice $nick Welcome to 4[  $+ $chan $+ ] Todays date-4<  $+ $date $+  >1-You are person Number -{ 12 %Visitor  1}- that joined since4 %count %zone $+ ! 1 %logo 
  8. n6=150:ON JOIN:%visit:/inc %Visitor 1 | /notice $nick Welcome to 4[  $+ $chan $+ ] Todays date-4<  $+ $date $+  >1-You are person Number -{ 12 %Visitor  1}- that joined since 4 %count %zone $+ ! 1 %logo 
  9. n7=#ChannelCounter end
  10. n8=;--------------------------------------------------------- TeXt and Action FlooD KiCK 
  11. n9=#TEXT disabled
  12. n10=@1:ON TEXT:*:#:if ($nick isop $chan) { halt } | else { /auser =300 $nick | /timer 1 5 /ruser $nick }
  13. n11=+300:ON TEXT:*:#:/auser =301 $nick 
  14. n12=+301:ON TEXT:*:#:/auser =302 $nick  
  15. n13=+302:ON TEXT:*:#:/auser =303 $nick 
  16. n14=+303:ON TEXT:*:#:/auser =304 $nick 
  17. n15=+304:ON TEXT:*:#:/ruser $nick | /inc %kick 1 | raw -q kick $chan $nick :| Channel Text Flood Protection. |
  18. n16=@1:ON ACTION:*:#:if ($nick isop $chan) { halt } | else { /auser =300 $nick | /timer 1 8 /ruser $nick }
  19. n17=+300:ON ACTION:*:#:/auser =301 $nick 
  20. n18=+301:ON ACTION:*:#:/auser =302 $nick  
  21. n19=+302:ON ACTION:*:#:/auser =303 $nick 
  22. n20=+303:ON ACTION:*:#:/auser =304 $nick
  23. n21=+304:ON ACTION:*:#:/ruser $nick | /inc %kick 1 | raw -q kick $chan $nick :| Channel Action Flood Protection. |
  24. n22=#TEXT end
  25. n23=;------------------------------------------------------ Last Seen Recorder 
  26. n24=#LASTSEEN start
  27. n25=100:ON PART:# { if [ isin $nick halt | if ] isin $nick halt | writeini %path $+ \names.txt $nick seen $ctime }
  28. n26=100:ON QUIT { if [ isin $nick halt | if ] isin $nick halt | writeini %path $+ \names.txt $nick seen $ctime }
  29. n27=100:ON KICK:# { if [ isin $nick goto end | if ] isin $nick goto end | writeini %path $+ \names.txt $knick seen $ctime }
  30. n28=150:ON PART:# { if [ isin $nick halt | if ] isin $nick halt | writeini %path $+ \names.txt $nick seen $ctime }
  31. n29=150:ON QUIT { if [ isin $nick halt | if ] isin $nick halt | writeini %path $+ \names.txt $nick seen $ctime }
  32. n30=150:ON KICK:# { if [ isin $nick goto end | if ] isin $nick goto end | writeini %path $+ \names.txt $knick seen $ctime }
  33. n31=@1:ON TEXT:seen*:# {
  34. n32=  if $parm2 iswm $me { msg $chan Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan Trying to find yourself, eh? | halt } | if $parm2 ison $chan { msg $chan $parm2 is on the channel right now! | halt } | if (%lastseen == on) { lastseen $chan $parm2* | halt } | if (%timesince == on) { timesince $chan $parm2* | halt }
  35. n33=}
  36. n34=@100:ON TEXT:seen*:# {
  37. n35=  if $parm2 iswm $me { msg $chan Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan Trying to find yourself, eh? | halt } | if $parm2 ison $chan { msg $chan $parm2 is on the channel right now! | halt } | if (%lastseen == on) { lastseen $chan $parm2* | halt } | if (%timesince == on) { timesince $chan $parm2* | halt }
  38. n36=}
  39. n37=@150:ON TEXT:seen*:# {
  40. n38=  if $parm2 iswm $me { msg $chan Yeah, whenever I look in a mirror... | halt } | if ($nick == $parm2) { msg $chan Trying to find yourself, eh? | halt } | if $parm2 ison $chan { msg $chan $parm2 is on the channel right now! | halt } | if (%lastseen == on) { lastseen $chan $parm2* | halt } | if (%timesince == on) { timesince $chan $parm2* | halt }
  41. n39=}
  42. n40=#LASTSEEN end
  43. n41=;----------------------------------------------------- Your Own Lag Detector 
  44. n42=7:ON TEXT:lag*:? {
  45. n43=  set %ping $ctime
  46. n44=  dec %ping $parm2
  47. n45=  if %ping >= 30 { set %secx seconds (*Excessive Lag!*) | echo 4 $active *** Excessive Lag Detected ( $+ %ping secs @ $server -/- $port $+ ) Suggestion: Switch servers! | goto next }
  48. n46=  Elseif %ping <= 2 { set %ping 0 | set %secx seconds | goto next }
  49. n47=  Elseif %ping == 1 { set %secx second }
  50. n48=  else { set %secx seconds }
  51. n49=  goto next
  52. n50=  :next
  53. n51=  if $idle == 1 { set %secy second }
  54. n52=  else { set %secy seconds }
  55. n53=  titlebar %logo (Lag: %ping %secx $+ ) (Idle: $idle %secy $+ ) Last Update: $time
  56. n54=  close -m $me
  57. n55=  halt
  58. n56=}
  59. n57=;------------------------------------------------- Flash Flood Detector 
  60. n58=@1!:ON ACTION:*B01000*:#:/inc %kick 1 | raw -q kick $chan $nick :Flash Detected %logo
  61. n59=@1!:ON TEXT:*B01000*:#:/inc %kick 1 | raw -q kick $chan $nick :Flash Detected %logo
  62. n60=1:ON NOTICE:*:*:%notice = $nick
  63. n61=;------------------------------------------------ Invite Flood Detector 
  64. n62=#invite start
  65. n63=1:ON INVITE:#: {
  66. n64=  if ($nick == $me) { halt } | if (%invite [ $+ [ $site ] ] == $null) { set %invite [ $+ [ $site ] ] 1 | /.timer 1 10 /.unset %invite [ $+ [ $site ] ] } 
  67. n65=  if (%invite [ $+ [ $site ] ] == 1) { set %invite [ $+ [ $site ] ] 2 | goto end }
  68. n66=  if (%invite [ $+ [ $site ] ] == 2) { set %invite [ $+ [ $site ] ] 3 | goto end }
  69. n67=  if (%invite [ $+ [ $site ] ] == 3) { set %invite [ $+ [ $site ] ] 4 | goto end }
  70. n68=  if (%invite [ $+ [ $site ] ] == 4) { .notice $nick Invite flood protection activated against 3 $+ *!*@ $+ $site $+  | .ignore -iu10 *!*@ $+ $site | /unset %invite [ $+ [ $site ] ] | /.notice $nick Invite flood has been detected on you! Now ignoring *!*@ $+ $site | goto end }
  71. n69=  :end
  72. n70=  if (%i [ $+ [ $site ] ] == $null) { set %i [ $+ [ $site ] ] 0 } | inc %i [ $+ [ $site ] ]  | set %inchan $chan
  73. n71=  echo 12 -s $nick [ $+ [ @ [ $+ [ $site ] ] ] ] is inviting you to $chan $+ ! If you would like to join this channel press F4 now! | .timer 1 5 /unset %i [ $+ [ $site ] ] 
  74. n72=  halt
  75. n73=}
  76. n74=#invite end
  77. n75=;------------------------------------------------ Message Flood Protection 
  78. n76=#msgn disabled
  79. n77=1!:ON TEXT:*:?:ruser *!*@ $+ $site | auser 60 *!*@ $+ $site | timer 1 10 /ruser *!*@ $+ $site
  80. n78=+60:ON TEXT:*:?:ruser *!*@ $+ $site | auser 61 *!*@ $+ $site | timer 1 10 /ruser *!*@ $+ $site
  81. n79=+61:ON TEXT:*:?:ruser *!*@ $+ $site | auser 62 *!*@ $+ $site | timer 1 10 /ruser *!*@ $+ $site
  82. n80=+62:ON TEXT:*:?:ruser *!*@ $+ $site | auser 63 *!*@ $+ $site | timer 1 10 /ruser *!* $+ $site
  83. n81=+63:ON TEXT:*:?:ruser *!*@ $+ $site | auser 64 *!*@ $+ $site | timer 1 10 /ruser *!* $+ $site
  84. n82=+64:ON TEXT:*:?:echo 6 $active Detected a Message flood from $nick ( $+ $address $+ ) | echo 6 [ %logo ] AutoIGNORE (10secs) on $nick ( $+ $address $+ ) | ignore -au10 *!*@ $+ $site 
  85. n83=#msgn end
  86. n84=;----------------------------------------Personal Fun Stuff -----------------------------------------------------
  87. n85=1:ON NOSOUND:/notice $nick $filename does not exist on my system!
  88. n86=100:ON NOSOUND:/notice $nick $filename does not exist on my system!
  89. n87=150:ON NOSOUND:/notice $nick $filename does not exist on my system!
  90. n88=1:ON NOTIFY: { .enable #note | whois $nick } 
  91. n89=100:ON NOTIFY: { .enable #note | whois $nick } 
  92. n90=150:ON NOTIFY: { .enable #note | whois $nick } 
  93. n91=@1:ON ACTION:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  94. n92=@100:ON ACTION:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  95. n93=@150:ON ACTION:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  96. n94=@1:ON TEXT:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  97. n95=@100:ON TEXT:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  98. n96=@150:ON TEXT:*ping me*:#:/ctcp $nick ping | /notice $nick Auto Ping. Please dont respond.  You will get a notice with the result. %logo
  99. n97=100:ON CTCPREPLY:PING* {
  100. n98=  if ($parm2 == $null) halt
  101. n99=  else {
  102. n100=    %pt = $ctime - $parm2
  103. n101=    if (%pt < 0) set %pt 0
  104. n102=    if ($nick ison $chan) { goto start }
  105. n103=    else { goto notice }
  106. n104=    :start
  107. n105=    if (%pt < 10) notice $nick [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD 
  108. n106=    elseif (%pt < 20) notice $nick [ $+ $nick PING reply]: %pt seconds  A 10-20 SeC. LaG DeTeCTeD
  109. n107=    else notice $nick [ $+ $nick PING reply]: %pt seconds  A HuGe LaG DeTeCTeD
  110. n108=    :notice
  111. n109=    if (%pt < 10) notice $me [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD
  112. n110=    elseif (%pt < 20) notice $me [ $+ $nick PING reply]: %pt seconds  A 10-20 SeC. LaG DeTeCTeD
  113. n111=    else notice $me [ $+ $nick PING reply]: %pt seconds  A HuGe LaG DeTeCTeD
  114. n112=  }
  115. n113=  halt
  116. n114=}
  117. n115=150:ON CTCPREPLY:PING* {
  118. n116=  if ($parm2 == $null) halt
  119. n117=  else {
  120. n118=    %pt = $ctime - $parm2
  121. n119=    if (%pt < 0) set %pt 0
  122. n120=    if ($nick ison $chan) { goto start }
  123. n121=    else { goto notice }
  124. n122=    :start
  125. n123=    if (%pt < 10) notice $nick [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD
  126. n124=    elseif (%pt < 20) notice $nick [ $+ $nick PING reply]: %pt seconds  A 10-20 SeC. LaG DeTeCTeD
  127. n125=    else notice $nick [ $+ $nick PING reply]: %pt seconds A HuGe LaG DeTeCTeD
  128. n126=    :notice
  129. n127=    if (%pt < 10) notice $me [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD
  130. n128=    elseif (%pt < 20) notice $me [ $+ $nick PING reply]: %pt seconds  A 10-20 SeC. LaG DeTeCTeD
  131. n129=    else notice $me [ $+ $nick PING reply]: %pt seconds  A HuGe LaG DeTeCTeD
  132. n130=  }
  133. n131=  halt
  134. n132=}
  135. n133=1:ON CTCPREPLY:PING* {
  136. n134=  if ($parm2 == $null) halt
  137. n135=  else {
  138. n136=    %pt = $ctime - $parm2
  139. n137=    if (%pt < 0) set %pt 0
  140. n138=    if ($nick ison $chan) { goto start }
  141. n139=    else { goto notice }
  142. n140=    :start
  143. n141=    if (%pt < 10) notice $nick [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD
  144. n142=    elseif (%pt < 20) notice $nick [ $+ $nick PING reply]: %pt seconds A 10-20 SeC. LaG DeTeCTeD
  145. n143=    else notice $nick [ $+ $nick PING reply]: %pt seconds A HuGe LaG DeTeCTeD
  146. n144=    :notice
  147. n145=    if (%pt < 10) notice $me [ $+ $nick PING reply]: %pt seconds No LaG DeTeCTeD
  148. n146=    elseif (%pt < 20) notice $me [ $+ $nick PING reply]: %pt seconds  A 10-20 SeC. LaG DeTeCTeD
  149. n147=    else notice $me [ $+ $nick PING reply]: %pt seconds A HuGe LaG DeTeCTeD
  150. n148=  }
  151. n149=  halt
  152. n150=}
  153. n151=@+1:ON TEXT:*this channel sux*:#:/inc %kick 1 | /kick $chan $nick THEN GET OUT!!! %logo
  154. n152=@+1:ON TEXT:*this channel sucks*:#:/inc %kick 1 | /kick $chan $nick THEN GET OUT!!! %logo
  155. n153=@+1:ON ACTION:*this channel sux*:#:/inc %kick 1 | /kick $chan $nick THEN GET OUT!!! %logo
  156. n154=@+1:ON ACTION:*this channel sucks*:#:/inc %kick 1 | /kick $chan $nick THEN GET OUT!!! %logo
  157. n155=;------------------------------------------------------- Mail System ---------------------------------------------------------
  158. n156=#CMS start
  159. n157=+11:ON JOIN:#:/notice $nick You have new mail!! 
  160. n158=100:ON TEXT:~sendmail*:?:/write c:\power\ $+ $parm2 $+ .txt From: $nick ( $+ $address $+ ) On: $date $+ , $day $+ , $time $+ MESSAGE: $parm3* | /msg $nick Mail Sent! | /auser 11 $parm2 | /closemsg $nick |  /write c:\power\maillist.txt To: $parm2 From: $nick
  161. n159=100:ON TEXT:~getmail*:?:/dcc send $nick c:\power\ $+ $nick $+ .txt | /ruser $nick | /closemsg $nick
  162. n160=100:ON TEXT:~erasemail*:?:/write -c c:\power\ $+ $nick $+ .txt | /msg $nick Mail Erased! | /closemsg $nick
  163. n161=100:ON TEXT:~mailhelp*:#:/msg $nick %logo mIRC Mailer: | /msg $nick To Send Mail:  /msg $me ~sendmail [nick] (the person the mail is for) [message] | /msg $nick To Get Mail:  /msg $me ~getmail | /msg $nick To Erase Mail:  /msg $me ~erasemail | /closemsg $nick
  164. n162=150:ON TEXT:~sendmail*:?:/write c:\power\ $+ $parm2 $+ .txt From: $nick ( $+ $address $+ ) On: $date $+ , $day $+ , $time $+ MESSAGE: $parm3* | /msg $nick Mail Sent! | /auser 11 $parm2 | /closemsg $nick |  /write c:\power\maillist.txt To: $parm2 From: $nick
  165. n163=150:ON TEXT:~getmail*:?:/dcc send $nick c:\power\ $+ $nick $+ .txt | /ruser $nick | /closemsg $nick
  166. n164=150:ON TEXT:~erasemail*:?:/write -c c:\power\ $+ $nick $+ .txt | /msg $nick Mail Erased! | /closemsg $nick
  167. n165=150:ON TEXT:~mailhelp*:#:/msg $nick %logo mIRC Mailer: | /msg $nick To Send Mail:  /msg $me ~sendmail [nick] (the person the mail is for) [message] | /msg $nick To Get Mail:  /msg $me ~getmail | /msg $nick To Erase Mail:  /msg $me ~erasemail | /closemsg $nick
  168. n166=#CMS end 
  169. n167=;------------------------------------------------------------- Auto Send -------------------------------------------------------
  170. n168=#Auto Send start
  171. n169=1:ON TEXT:!<yournick>*:*:/dcc send $nick $parm2
  172. n170=100:ON TEXT:!<yournick>*:*:/dcc send $nick $parm2
  173. n171=150:ON TEXT:!<yournick>*:*:/dcc send $nick $parm2
  174. n172=#Auto Send end
  175. n173=;------------------------------------------------------------ Tsunami Flood Protection ---------------------------------------
  176. n174=#tsunami start
  177. n175=1:ON NOTICE:*^^^*:*:/ignore -u30 $nick | /echo 4 -=⌐ TSUNAMI «=- From...  $+ $nick $+ =  $+ $address  | /closemsg $nick 
  178. n176=1:ON TEXT:*^^*:?:/ignore -u30 $nick | /echo 4  TSUNAMI  From...  $+ $nick $+ =  $+ $address | /closemsg $nick
  179. n177=1:ON TEXT:**:?:/ignore -u30 $nick | /echo 4  TSUNAMI  From...  $+ $nick $+ =  $+ $address | /closemsg $nick
  180. n178=1:ON NOTICE:**:*:/ignore -u30 $nick | /echo 4  TSUNAMI  From...  $+ $nick $+ =  $+ $address | /closemsg $nick
  181. n179=1:ON TEXT:*********:?:/ignore -u30 $nick | /echo 4  TSUNAMI  From...  $+ $nick $+ =  $+ $address | /closemsg $nick
  182. n180=1:ON NOTICE:*********:*:/ignore -u30 $nick | /echo 4  TSUNAMI  From...  $+ $nick $+ =  $+ $address | /closemsg $nick
  183. n181=#tsunami end
  184. n182=;--------------------------------------------------------- Nethack Protection ----------------------------------------------------------- 
  185. n183=#serverop start
  186. n184=@1:ON SERVEROP:#:{
  187. n185=  if (($opnick == $me) || ($level($address($opnick,1)) >= 150)) { /return }
  188. n186=  else { /mode $chan -o $opnick | /echo 4 -a SERVER OP DETECTED IN -= $+ $chan $+ =- ON -= $+ $opnick $+ =- }
  189. n187=}
  190. n188=#serverop end
  191. n189=;--------------------------------------------------------- Shitlist Area -----------------------------------------------------------------------
  192. n190=#shitlist start
  193. n191=+999:ON JOIN:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick 
  194. n192=+999:ON PART:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick
  195. n193=+999:ON QUIT:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick
  196. n194=+999:ON NICK:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick
  197. n195=+999:ON SERVEROP:#:/inc %ban 1 | /inc %kick 1 | /ban $chan $opnick 3 | /kick $chan $opnick 
  198. n196=+999:ON OP:#:/inc %ban 1 | /inc %kick 1 | /mode $chan -o $opnick | /ban $chan $opnick 3 | /kick $chan $opnick 
  199. n197=+999:ON DEOP:#:/inc %ban 1 | /inc %kick 1 | /ban $chan $opnick 3 | /kick $chan $opnick 
  200. n198=+999:ON TEXT:*:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick 
  201. n199=+999:ON ACTION:*:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick 
  202. n200=+999:ON NOTICE:*:#:/inc %ban 1 | /inc %kick 1 | /mode $chan +b *!*@ $+ $site | /kick $chan $nick 
  203. n201=#shitlist end
  204. n202=;-------------------------------------------------------- Split Detector ---------------------------------------------------------------------------
  205. n203=#splitdet start
  206. n204=1:ON SNOTICE:*: {
  207. n205=  if break isin $parms { echo 2 -a *** Netsplit detected between servers  $+ $parm6 $+  and  $+ $parm7 $+  }
  208. n206=  if junction isin $parms { echo 2 -a *** Netsplit mended, link between  $+ $parm6 $+  and  $+ $parm7 $+  created }
  209. n207=  halt
  210. n208=}
  211. n209=#splitdet end
  212. n210=;
  213. n211=@1:ON MODE:#:/mode $chan -smilkp+tn | /mode $chan -o $nick
  214. n212=@100:ON MODE:#:/mode $chan -smilkp+tn | /mode $chan -o $nick
  215. n213=@150:ON MODE:#:/mode $chan -smilkp+tn
  216. n214=;------------------------------------------------------------- Auto Ban on ME Detector 
  217. n215=@1:On Ban:#:{
  218. n216=  if (($level($banmask) == 7) && (%oplist == On)) goto meban
  219. n217=  if ( $bnick iswm $banmask ) goto meban
  220. n218=  if (($level($banmask) == 100) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return }
  221. n219=  if (($level($banmask) == 150) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return } 
  222. n220=  else goto end
  223. n221=  :meban
  224. n222=  If ( $me isop $chan ) goto unban
  225. n223=  else goto noop
  226. n224=  :unban
  227. n225=  mode $chan -o-b $nick $banmask
  228. n226=  notice $nick Hey DONT ban me from this chan! %logo
  229. n227=  echo 5 $active  You have been Un-Banned!
  230. n228=  goto end
  231. n229=  :noop
  232. n230=  echo 5 $active You not an op in $chan!
  233. n231=  :end
  234. n232=}
  235. n233=@100:On Ban:#:{
  236. n234=  if (($level($banmask) == 7) && (%oplist == On)) goto meban
  237. n235=  if ( $bnick iswm $banmask ) goto meban
  238. n236=  if (($level($banmask) == 100) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return }
  239. n237=  if (($level($banmask) == 150) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return } 
  240. n238=  else goto end
  241. n239=  :meban
  242. n240=  If ( $me isop $chan ) goto unban
  243. n241=  else goto noop
  244. n242=  :unban
  245. n243=  mode $chan -o-b $nick $banmask
  246. n244=  notice $nick Hey DONT ban me from this chan! %logo
  247. n245=  echo 5 $active  You have been Un-Banned!
  248. n246=  goto end
  249. n247=  :noop
  250. n248=  echo 5 $active You not an op in $chan!
  251. n249=  :end
  252. n250=}
  253. n251=@150:On Ban:#:{
  254. n252=  if (($level($banmask) == 7) && (%oplist == On)) goto meban
  255. n253=  if ( $bnick iswm $banmask ) goto meban
  256. n254=  if (($level($banmask) == 100) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return }
  257. n255=  if (($level($banmask) == 150) && (%oplist == On)) { /mode $chan -ob $nick $banmask | /.notice $nick Don't BAN my fRiEnDs %logo | /return } 
  258. n256=  else goto end
  259. n257=  :meban
  260. n258=  If ( $me isop $chan ) goto unban
  261. n259=  else goto noop
  262. n260=  :unban
  263. n261=  mode $chan -o-b $nick $banmask
  264. n262=  notice $nick Hey DONT ban me from this chan! %logo
  265. n263=  echo 5 $active  You have been Un-Banned!
  266. n264=  goto end
  267. n265=  :noop
  268. n266=  echo 5 $active You not an op in $chan!
  269. n267=  :end
  270. n268=}
  271. n269=;
  272. n270=#AutoDeOp disabled
  273. n271=@1!:ON OP:#:if ($level($address($opnick,1)) == 1) { /mode $chan -oo $opnick $nick | /.notice $nick Only People in W Are Allowed to have Ops }
  274. n272=@1!:ON OP:#:if ($level($address($opnick,1)) == 100) { /mode $chan -oo $opnick $nick | /.notice $nick Only People in W Are Allowed to have Ops }
  275. n273=@100!:ON OP:#:if ($level($address($opnick,1)) == 1) { /mode $chan -oo $opnick $nick | /.notice $nick Only People in W Are Allowed to have Ops }
  276. n274=@100!:ON OP:#:if ($level($address($opnick,1)) == 100) { /mode $chan -oo $opnick $nick | /.notice $nick Only People in W Are Allowed to have Ops }
  277. n275=@150!:ON OP:#:if ($level($address($opnick,1)) == 1) { /mode $chan -o $opnick | /.notice $nick Only People in W Are Allowed to have Ops }
  278. n276=@150!:ON OP:#:if ($level($address($opnick,1)) == 100) { /mode $chan -o $opnick | /.notice $nick Only People in W Are Allowed to have Ops }
  279. n277=#AutoDeOp end
  280. n278=;------------------------------------------------- NiCK FlooD Kick Detector 
  281. n279=#NICK start
  282. n280=@+1:on nick: {
  283. n281=  if $level($address($newnick,3)) >= 100 { goto end }
  284. n282=  if $level($address($newnick,3)) >= 150 { goto end } 
  285. n283=  if %bcoffnick == OFF { goto nickflood }
  286. n284=  if $level($maddress($address($newnick,5))) == 97 { 
  287. n285=    .set %schan 1
  288. n286=    :kickbadnick
  289. n287=    if $chan(%schan) == $null { goto doneoff }
  290. n288=    if $newnick ison $chan(%schan) {
  291. n289=      ban -u30 $chan(%schan) $newnick 3
  292. n290=      kick $chan(%schan) $newnick change your nick 12 %logo4  OFFenSiVeNiCKkICK
  293. n291=      echo 4 -a $newnick got kick because he is using an Offensive Nick 12 %logo4  OFFenSiVeNiCKkICK
  294. n292=      .notice $newnick You have been kicked because you are using an offensive nick 12 %logo4  OFFenSiVeNiCKkICK
  295. n293=      halt
  296. n294=    }
  297. n295=    else {
  298. n296=      .inc %schan 1
  299. n297=      goto kickbadnick
  300. n298=    }
  301. n299=    :doneoff
  302. n300=    .unset %schan %nickch
  303. n301=  }
  304. n302=  :nickflood
  305. n303=  if %bcnickfld == OFF { goto end }
  306. n304=  if (%nickch >= 3) && ($address($newnick,3) == %nfaddy) { 
  307. n305=    .set %schan 1
  308. n306=    :kicknick
  309. n307=    if $chan(%schan) == $null { goto alldone }
  310. n308=    if $newnick ison $chan(%schan) {
  311. n309=      Ban $chan(%schan) $newnick 3
  312. n310=      kick $chan(%schan) $newnick  12 %logo4  NiCKFLoOdKiCK
  313. n311=      echo 4 -a $newnick got kicked for Nick Flood 12 %logo4  NiCKFLoOdKiCK
  314. n312=      goto alldone
  315. n313=    }
  316. n314=    else {
  317. n315=      .inc %schan 1
  318. n316=      goto kicknick
  319. n317=    }
  320. n318=    :alldone
  321. n319=    .unset %schan %nickch
  322. n320=  }
  323. n321=  else if (%nfaddy == $address($newnick,3)) { 
  324. n322=    .set %nfaddy $address($newnick,3)
  325. n323=    .inc %nickch 1
  326. n324=    .timer 1 7 /unset %nickch
  327. n325=  }
  328. n326=  else { 
  329. n327=    .set %nfaddy $address($newnick,3)
  330. n328=    .set %nickch 1
  331. n329=    .timer 1 7 /unset %nickch
  332. n330=  }
  333. n331=  :end
  334. n332=}
  335. n333=#NICK end
  336. n334=1:ON FILESENT:*:/inc %sent 1 | /echo 6  DCC Sent $filename to ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick  Done Sending $filename %logo | /notice $nick This has been filenumber %sent that i have sent since %sentdate
  337. n335=1:ON FILERCVD:*.*:/notice $nick Thanks for the file! | /echo 6 Recieved $filename From ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick Thanks for the file! %logo
  338. n336=100:ON FILESENT:*:/inc %sent 1 | /echo 6  DCC Sent $filename to ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick  Done Sending $filename %logo | /notice $nick This has been filenumber %sent that i have sent since %sentdate 
  339. n337=100:ON FILERCVD:*.*:/notice $nick Thanks for the file! | /echo 6 Recieved $filename From ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick Thanks for the file! %logo
  340. n338=150:ON FILESENT:*:/inc %sent 1 | /echo 6  DCC Sent $filename to ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick  Done Sending $filename %logo | /notice $nick This has been filenumber %sent that i have sent since %sentdate 
  341. n339=150:ON FILERCVD:*.*:/notice $nick Thanks for the file! | /echo 6 Recieved $filename From ( $+ $nick $+ )[ $+ $address $+ ] | /notice $nick Thanks for the file! %logo
  342. n340=;------------------------------------------------- Idle Detector 
  343. n341=#idlekick disabled
  344. n342=@+1:ON NICK: {
  345. n343=  %t = $readini idle.ini idlekick $nick
  346. n344=  if (%t == $null) { writeini idle.ini idlekick $newnick $ctime }
  347. n345=  else { remini idle.ini idlekick $nick | writeini idle.ini idlekick $newnick %t }
  348. n346=  unset %t
  349. n347=}
  350. n348=@+1:ON JOIN:%idlechan:/writeini idle.ini idlekick $nick $ctime
  351. n349=@+1:ON TEXT:*:%idlechan:/writeini idle.ini idlekick $nick $ctime
  352. n350=@+1:ON ACTION:*:%idlechan:/writeini idle.ini idlekick $nick $ctime
  353. n351=@+1:ON PART:%idlechan: {
  354. n352=  if ($nick == $me) { .timer30 off | unset %seconds %idlechan | remini idle.ini idlekick | echo 2 -a IdleKick has been disabled for $chan $+ . | .disable #idlekick }
  355. n353=  else {
  356. n354=    %t = $readini idle.ini idlekick $nick
  357. n355=    if (%t == $null) { halt }
  358. n356=    else { remini idle.ini idlekick $nick }
  359. n357=    unset %t
  360. n358=  }
  361. n359=}
  362. n360=@+1:ON KICK:%idlechan:{
  363. n361=  %t = $readini idle.ini idlekick $nick
  364. n362=  if (%t == $null) { halt }
  365. n363=  else { remini idle.ini idlekick $nick }
  366. n364=  unset %t
  367. n365=}
  368. n366=@+1:ON QUIT:{
  369. n367=  %t = $readini idle.ini idlekick $nick
  370. n368=  if (%t == $null) { halt }
  371. n369=  else { remini idle.ini idlekick $nick }
  372. n370=  unset %t
  373. n371=}
  374. n372=#idlekick end
  375. n373=;--------------------------------------------------Email Sender
  376. n374=#email disabled
  377. n375=1:ON CHATOPEN:/.timer 1 3 /msg = $+ $me HELO whatever.com
  378. n376=1:ON CHAT:*pleased to meet you*:/msg = $+ $me MAIL FROM: $+ %mailfrom
  379. n377=1:ON CHAT:*sender ok*:/msg = $+ $me RCPT TO: $+ %mailto
  380. n378=1:ON CHAT:*Recipient ok*:/msg = $+ $me DATA
  381. n379=1:ON CHAT:*354 Enter mail*:/msg = $+ $me SUBJECT: $+ %subject | /msg = $+ $me %message | msg = $+ $me .
  382. n380=1:ON CHAT:*Message accepted for delivery*: { msg = $+ $me QUIT | .disable #email }
  383. n381=#email end
  384. n382=;--------------------------------------------------DNS Resolver
  385. n383=#dnssho start
  386. n384=1:ON DNS: {
  387. n385=  if $nick != $me {
  388. n386=    echo 12 -a -----------------------------------------
  389. n387=    echo 12 -a $chr(124) DNS report for  $nick 
  390. n388=    echo 12 -a $chr(124) ---------------------------------------
  391. n389=    if $raddress != $null {
  392. n390=      echo 12 -a $chr(124) IP address:  $iaddress 
  393. n391=      echo 12 -a $chr(124) Host:  $naddress 
  394. n392=    }
  395. n393=    else {
  396. n394=      echo 12 -a $chr(124) Unresolvable
  397. n395=    }
  398. n396=    echo 12 -a -----------------------------------------
  399. n397=  }
  400. n398=  else {
  401. n399=    if $raddress != $null {
  402. n400=      echo 12 -a DNS reports: $naddress $iaddress
  403. n401=    }
  404. n402=    else {
  405. n403=      echo 12 -a DNS reports: Unresolveable
  406. n404=    }
  407. n405=  }
  408. n406=  halt
  409. n407=}
  410. n408=#dnssho end
  411.